CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/vgl20.zip/VGL386.ASM

Assembly Source File | 1993-05-16 | 21KB | 668 lines

; ****************************************************************************
; VGL386.ASM
;
; Simple VGA Mode 13h graphics routines.  Hopefully they are simple *AND*
; fast.  No promises, no guarantees.  They work for me (ATI Wonder on a couple
; of 486's), but they may not be what you're looking for.  These routines
; assume a 386 processor (hence the movsd instructions).  For 286's use the
; VGL286.ASM module instead.
;
; WARNING 1: These routines do absolutely *NO CLIPPING*!  If you happen to draw
; a large sprite right at the edge of your virtual screen and it clobbers
; something, you're on your own.
;
; WARNING 2: To help speed things up I do things like not pushing all the
; registers at the beginning of a routine.  If your C routines use register
; variables (which normally use the SI and DI registers), things may not
; work nicely.  To fix this either don't use register variables, or edit
; this file and add push and pop instructions to save the SI and DI regs.
;
; Mark
; [e-mail]
; ****************************************************************************

LOCALS
.model small
.386

; ****************************************************************************
; EQUates
; ****************************************************************************

VIDEO       equ         0a000h                  ; Start of video memory

; ****************************************************************************
; Data Section
; ****************************************************************************

.data

; Where we're going to draw into (defaults to video memory)
_Buffer                 dw  VIDEO

; Table for quick Y calculations
RowOff                  dw      0,  320,  640,  960, 1280, 1600, 1920, 2240
                        dw   2560, 2880, 3200, 3520, 3840, 4160, 4480, 4800
                        dw   5120, 5440, 5760, 6080, 6400, 6720, 7040, 7360
                        dw   7680, 8000, 8320, 8640, 8960, 9280, 9600, 9920
                        dw  10240,10560,10880,11200,11520,11840,12160,12480
                        dw  12800,13120,13440,13760,14080,14400,14720,15040
                        dw  15360,15680,16000,16320,16640,16960,17280,17600
                        dw  17920,18240,18560,18880,19200,19520,19840,20160
                        dw  20480,20800,21120,21440,21760,22080,22400,22720
                        dw  23040,23360,23680,24000,24320,24640,24960,25280
                        dw  25600,25920,26240,26560,26880,27200,27520,27840
                        dw  28160,28480,28800,29120,29440,29760,30080,30400
                        dw  30720,31040,31360,31680,32000,32320,32640,32960
                        dw  33280,33600,33920,34240,34560,34880,35200,35520
                        dw  35840,36160,36480,36800,37120,37440,37760,38080
                        dw  38400,38720,39040,39360,39680,40000,40320,40640
                        dw  40960,41280,41600,41920,42240,42560,42880,43200
                        dw  43520,43840,44160,44480,44800,45120,45440,45760
                        dw  46080,46400,46720,47040,47360,47680,48000,48320
                        dw  48640,48960,49280,49600,49920,50240,50560,50880
                        dw  51200,51520,51840,52160,52480,52800,53120,53440
                        dw  53760,54080,54400,54720,55040,55360,55680,56000
                        dw  56320,56640,56960,57280,57600,57920,58240,58560
                        dw  58880,59200,59520,59840,60160,60480,60800,61120
                        dw  61440,61760,62080,62400,62720,63040,63360,63680

; ****************************************************************************
; Macros
; ****************************************************************************

                 VSYNC macro

                 mov  dx,03DAh
@@1:
                 in   al,dx
                 test al,8
                 jnz  @@1
@@2:
                 in   al,dx
                 test al,8
                 jz   @@2

                 endm

; ****************************************************************************
; Code Section
; ****************************************************************************

.code

; ============================================================================
; void vglInit( void )
;
; Enter mode 13h.
; ============================================================================

                 public _vglInit

_vglInit         proc near

                 mov  ax,13h
                 int  10h
                 mov  _Buffer,VIDEO

                 ret
_vglInit         endp

; ============================================================================
; void vglTerm( void )
;
; Exit mode 13h.
; ============================================================================

                 public _vglTerm

_vglTerm         proc near

                 mov  ax,3
                 int  10h

                 ret
_vglTerm         endp

; ============================================================================
; void vglBuffer( char far* buffer )
;
; Point the routines at a different area of memory ("virtual" screens)
; ============================================================================

                 public _vglBuffer

_vglBuffer       proc near
                 push bp
                 mov  bp,sp

                 les  ax,[bp+4]
                 mov  _Buffer,es

                 pop  bp
                 ret
_vglBuffer       endp

; ============================================================================
; void vglClear( int c )
;
; Clear the current "screen" to a given color.
; ============================================================================

                 public _vglClear

_vglClear        proc near
                 push bp
                 mov  bp,sp

                 mov  es,_Buffer
                 xor  di,di
                 mov  dl,[bp+4]
                 mov  al,dl
                 mov  ah,dl
                 shl  eax,16
                 mov  al,dl
                 mov  ah,dl
                 mov  cx,16000
                 rep  stosd

                 pop  bp
                 ret
_vglClear        endp

; ============================================================================
; void vglClearL( int lines, int c )
;
; Clear the top 'lines' rows of the current screen to the specified color.
; ============================================================================

                 public _vglClearL

_vglClearL       proc near
                 push bp
                 mov  bp,sp

                 mov  es,_Buffer
                 xor  di,di
                 mov  ax,80
                 mov  bx,[bp+4]
                 mul  bx
                 mov  cx,ax
                 mov  dl,[bp+6]
                 mov  al,dl
                 mov  ah,dl
                 shl  eax,16
                 mov  al,dl
                 mov  ah,dl
                 rep  stosd

                 pop  bp
                 ret
_vglClearL       endp

; ============================================================================
; void vglUpdate( void )
;
; Copy the current "screen" into video memory.  Useless if you're not currently
; drawing into an off-screen buffer.
; ============================================================================

                 public _vglUpdate

_vglUpdate       proc near
                 push bp
                 mov  bp,sp
                 push ds

                 mov  ds,_Buffer
                 xor  si,si
                 mov  ax,VIDEO
                 mov  es,ax
                 xor  di,di
                 mov  cx,16000
                 rep  movsd

                 pop  ds
                 pop  bp
                 ret
_vglUpdate       endp

; ============================================================================
; void vglUpdateW( void )
;
; Same as above but it waits for vertical retrace.
; ============================================================================

                 public _vglUpdateW

_vglUpdateW      proc near
                 push bp
                 mov  bp,sp
                 push ds

                 VSYNC

                 mov  ds,_Buffer
                 xor  si,si
                 mov  ax,VIDEO
                 mov  es,ax
                 xor  di,di
                 mov  cx,16000
                 rep  movsd

                 pop  ds
                 pop  bp
                 ret
_vglUpdateW      endp

; ============================================================================
; void vglUpdateL( int lines )
;
; Same as vglUpdate() except it only copies over the top 'lines' rows.
; ============================================================================

                 public _vglUpdateL

_vglUpdateL      proc near
                 push bp
                 mov  bp,sp
                 push ds

                 mov  ds,_Buffer
                 xor  si,si
                 mov  ax,VIDEO
                 mov  es,ax
                 xor  di,di
                 mov  ax,80
                 mov  bx,[bp+4]
                 mul  bx
                 mov  cx,ax
                 rep  movsd

                 pop  ds
                 pop  bp
                 ret
_vglUpdateL      endp

; ============================================================================
; void vglUpdateLW( int lines )
;
; Same as above but it waits for vertical retrace.
; ============================================================================

                 public _vglUpdateLW

_vglUpdateLW     proc near
                 push bp
                 mov  bp,sp
                 push ds

                 VSYNC

                 mov  ds,_Buffer
                 xor  si,si
                 mov  ax,VIDEO
                 mov  es,ax
                 xor  di,di
                 mov  ax,80
                 mov  bx,[bp+4]
                 mul  bx
                 mov  cx,ax
                 rep  movsd

                 pop  ds
                 pop  bp
                 ret
_vglUpdateLW     endp

; ============================================================================
; void vglBox( int left, int top, int width, int height, int c )
;
; Draw a filled in box at offset x,y that is width x height big, in the
; specified color.  It is draw into the current "screen" (buffer).
; ============================================================================

                 public _vglBox

_vglBox          proc near
                 push bp
                 mov  bp,sp

                 mov  es,_Buffer
                 mov  bx,[bp+6]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+4]
                 mov  cl,[bp+12]
                 mov  al,cl
                 mov  ah,cl
                 shl  eax,16
                 mov  al,cl
                 mov  ah,cl
                 mov  dx,[bp+10]
                 mov  bp,[bp+8]
                 mov  bx,320
                 sub  bx,bp
                 mov  si,bp
                 and  si,3
                 shr  bp,2
BLoop:
                 mov  cx,bp
                 rep  stosd
                 mov  cx,si
                 rep  stosb
                 add  di,bx
                 dec  dx
                 jnz  BLoop

                 pop  bp
                 ret
_vglBox          endp

; ============================================================================
; void vglHLine( int line, int left, int width, int c )
;
; Draw a horizontal line in a specified color.
; ============================================================================

                 public _vglHLine

_vglHLine        proc near
                 push bp
                 mov  bp,sp

                 mov  es,_Buffer
                 mov  bx,[bp+4]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+6]
                 mov  cl,[bp+10]
                 mov  al,cl
                 mov  ah,cl
                 shl  eax,16
                 mov  al,cl
                 mov  ah,cl
                 mov  cx,[bp+8]
                 mov  si,cx
                 and  si,3
                 shr  cx,2
                 rep  stosd
                 mov  cx,si
                 rep  stosb

                 pop  bp
                 ret
_vglHLine        endp

; ============================================================================
; void vglCopy( int left, int top, int width, int height )
;
; Like vglUpdate() except it updates only a region of the screen.
; ============================================================================

                 public _vglCopy

_vglCopy         proc near
                 push bp
                 mov  bp,sp
                 push ds

                 mov  bx,[bp+6]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+4]
                 mov  ds,_Buffer
                 mov  ax,VIDEO
                 mov  es,ax
                 mov  dx,[bp+10]
                 mov  bx,[bp+8]
                 mov  bp,320
                 sub  bp,bx
                 mov  ax,bx
                 and  ax,3
                 shr  bx,2
CLoop:
                 mov  si,di
                 mov  cx,bx
                 rep  movsd
                 mov  cx,ax
                 rep  movsb
                 add  di,bp
                 dec  dx
                 jnz  CLoop

                 pop  ds
                 pop  bp
                 ret
_vglCopy         endp

; ============================================================================
; void vglCopyW( int left, int top, int width, int height )
;
; Same as above but waits for vertical retrace.
; ============================================================================

                 public _vglCopyW

_vglCopyW        proc near
                 push bp
                 mov  bp,sp
                 push ds

                 VSYNC

                 mov  bx,[bp+6]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+4]
                 mov  ds,_Buffer
                 mov  ax,VIDEO
                 mov  es,ax
                 mov  dx,[bp+10]
                 mov  bx,[bp+8]
                 mov  bp,320
                 sub  bp,bx
                 mov  ax,bx
                 and  ax,3
                 shr  bx,2
CWLoop:
                 mov  si,di
                 mov  cx,bx
                 rep  movsd
                 mov  cx,ax
                 rep  movsb
                 add  di,bp
                 dec  dx
                 jnz  CWLoop
CWEnd:
                 pop  ds
                 pop  bp
                 ret
_vglCopyW        endp

; ============================================================================
; void vglPutPel( int x, int y, int c )
;
; Draw a single pixel in the specified color at offset x,y.  Pixel is drawn
; into the current "screen".
; ============================================================================

                 public _vglPutPel

_vglPutPel       proc near
                 push bp
                 mov  bp,sp

                 mov  es,_Buffer
                 mov  bx,[bp+6]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+4]
                 mov  al,[bp+8]
                 mov  [es:di],al

                 pop  bp
                 ret
_vglPutPel       endp

; ============================================================================
; int vglGetPel( int x, int y )
;
; Get the color of the pixel at location x,y in the current "screen".
; ============================================================================

                 public _vglGetPel

_vglGetPel       proc near
                 push bp
                 mov  bp,sp

                 mov  es,_Buffer
                 mov  bx,[bp+6]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+4]
                 mov  al,[bp+8]
                 mov  al,[es:di]

                 pop  bp
                 ret
_vglGetPel       endp

; ============================================================================
; void vglPut( int x, int y, int w, int h, char far* buf )
;
; Draw a bitmap image into the buffer at location x,y.  Every pixel of the
; image is drawn, so no transparent areas are possible.  Very quick.  Good
; for drawing tiles in a tile based game!
; ============================================================================

                 public _vglPut

_vglPut          proc near
                 push bp
                 mov  bp,sp
                 push ds

                 mov  es,_Buffer
                 mov  bx,[bp+6]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+4]
                 lds  si,[bp+12]
                 mov  bx,[bp+8]
                 mov  dx,[bp+10]
                 mov  bp,320
                 sub  bp,bx
                 mov  ax,bx
                 and  ax,3
                 shr  bx,2
PLoop:
                 mov  cx,bx
                 rep  movsd
                 mov  cx,ax
                 rep  movsb
                 add  di,bp
                 dec  dx
                 jnz  PLoop

                 pop  ds
                 pop  bp
                 ret
_vglPut          endp

; ============================================================================
; void vglPutSprite( int x, int y, int w, int h, char far* buf )
;
; Like vglPut() except that any pixels of color 0 will be transparent.  Not
; nearly as fast as vglPut(), but you'll need it for certain sprites, etc.
; ============================================================================

                 public _vglPutSprite

_vglPutSprite    proc near
                 push bp
                 mov  bp,sp
                 push ds

                 mov  es,_Buffer
                 mov  bx,[bp+6]
                 shl  bx,1
                 mov  di,[RowOff+bx]
                 add  di,[bp+4]
                 lds  si,[bp+12]
                 mov  bx,[bp+8]
                 mov  dx,[bp+10]
                 mov  bp,320
                 sub  bp,bx
PSLoop1:
                 mov  cx,bx
PSLoop2:
                 lodsb
                 or   al,al
                 je   PSSkip
                 mov  [es:di],al
PSSkip:
                 inc  di
                 dec  cx
                 jne  PSLoop2
                 add  di,bp
                 dec  dx
                 jnz  PSLoop1

                 pop  ds
                 pop  bp
                 ret
_vglPutSprite    endp

; ============================================================================
; void vglSetPal( char pal[768] )
;
; Set the palette from an array of 256 RGB triples.
; ============================================================================

                 public _vglSetPal

_vglSetPal       proc near
                 push bp
                 mov  bp,sp

                 VSYNC

                 mov  ax,1012h
                 xor  bx,bx
                 mov  cx,256
                 les  dx,[bp+4]
                 int  10h

                 pop  bp
                 ret
_vglSetPal       endp

; ============================================================================
; void vglSetPartPal( int first, int num, char far* pal )
;
; Set a partial palette from an array of RGB triples.
; ============================================================================

                 public _vglSetPartPal

_vglSetPartPal   proc near
                 push bp
                 mov  bp,sp

                 VSYNC

                 mov  ax,1012h
                 mov  bx,[bp+4]
                 mov  cx,[bp+6]
                 les  dx,[bp+8]
                 int  10h

                 pop  bp
                 ret
_vglSetPartPal   endp

end